FNR==1  { Base=FILENAME }
         { uses($0)      } 
 END     { print Base }
 
 function uses(line,    file,x,a) {
     if ( line ~ /^@include/ ) { 
       	split(line,a)
 	 	file=a[2]
		Used[file]++
		if (Used[file]==1) {
    		while ((getline x < file) > 0) 
 				uses(x);
    		close(file) 
 			printf("%s ", file)
		}
 	}
 } 
